home *** CD-ROM | disk | FTP | other *** search
/ Netware Super Library / Netware Super Library.iso / mis_cnvt / ntx2dbf / udfs.prg < prev   
Encoding:
Text File  |  1993-01-04  |  1.8 KB  |  65 lines
  1.  
  2. * Function: CENTERBOX
  3. * Author..: GARY BLATT
  4. * Syntax..: CENTER( exp<N>, exp<C> )
  5. *           <expN> = row number to display message. Must be >=1 & <=23
  6. *           <expC> = string to display
  7. * Returns.: .T. if executed ok, .F. if not
  8. FUNCTION CENTERBOX
  9. PARAMETERS p1, p2, p3, p4
  10.  
  11. PNUM=PCOUNT()
  12. ** calculate left and right column
  13. do case
  14.    case pnum=2
  15.          lcol=(80-len(p2))/2
  16.          rcol=lcol+len(p2)
  17.    case pnum=3
  18.          lcol=min((80-len(p2))/2, (80-len(p3))/2)
  19.          rcol=lcol+max(len(p2), len(p3))
  20.    case pnum=4
  21.          ltmp=min((80-len(p2))/2, (80-len(p3))/2) 
  22.          lcol=min(ltmp, (80-len(p4))/2)      
  23.          rtmp=max(len(p2), len(p3))
  24.          rcol=lcol+max(rtmp, len(p4))
  25. endcase
  26.  
  27. ** DRAW BOX ON SCREEN
  28. @ p1-1,lcol-1,p1+(pnum-1),rcol BOX '╔═╗║╝═╚║'
  29.  
  30. ** display message on screen
  31. do case
  32.    case pnum=2
  33.       @ p1,(80-LEN(p2))/2 SAY p2
  34.          return .t.
  35.    CASE PNUM=3
  36.       @ P1,(80-LEN(P2))/2 SAY P2
  37.       @ P1+1,(80-LEN(P3))/2 SAY P3
  38.       RETURN .T.
  39.    CASE PNUM=4
  40.       @ P1,(80-LEN(P2))/2 SAY P2
  41.       @ P1+1,(80-LEN(P3))/2 SAY P3
  42.       @ P1+2,(80-LEN(P4))/2 SAY P4
  43.       RETURN .T.
  44. ENDCASE
  45.  
  46. * Function: nameDATE
  47. * Author..: Gary Blatt
  48. * Syntax..: NAMEDATE( [<expD>] )
  49. * Returns.: Date variable as character string in the form: Monday January 1, 1986
  50. *
  51.  
  52. FUNCTION NAMEDATE
  53.  
  54. PARAMETERS rl_date
  55.  
  56. *-- verify parameter exists and/or is a date type variable
  57. IF .NOT. TYPE('rl_date') = 'D'                            
  58.    *-- if not date type, or undefined, default to system date
  59.    rl_date = DATE()
  60. ENDIF
  61.  
  62. *-- return character string of the: Month + space + Day + comma + Year
  63. RETURN ( cdow(rl_date)+' '+CMONTH(rl_date) + ' ' + LTRIM(STR(DAY(rl_date),2,0)) + ', '+;
  64.          STR(YEAR(rl_date),4,0) )
  65.